Namespace gtalkNotepad

	Public Enum ChatResponses
		ErrorMessage = 1
		Chat = 2
		Status = 3
		XmlWrite = 4
		XmlRead = 5
	End Enum

	Public Enum ChatVerbosity
		Low = 0
		Medium = 1
		High = 2
		RawXML = 3
	End Enum

	Public Class ChatResponseEventArgs
		Inherits EventArgs

		Dim m_Message As String = String.Empty
		Dim m_Verbosity As ChatVerbosity = ChatVerbosity.Low
		Dim m_From As String = String.Empty
		Dim m_Type As ChatResponses = ChatResponses.Chat

		Public Property Message() As String
			Get
				Return m_Message
			End Get
			Set(ByVal value As String)
				m_Message = value
			End Set
		End Property

		Public Property Verbosity() As Integer
			Get
				Return m_Verbosity
			End Get
			Set(ByVal value As Integer)
				m_Verbosity = value
			End Set
		End Property

		Public Property From() As String
			Get
				Return m_From
			End Get
			Set(ByVal value As String)
				m_From = value
			End Set
		End Property

		Public Property Type() As ChatResponses
			Get
				Return m_Type
			End Get
			Set(ByVal value As ChatResponses)
				m_Type = value
			End Set
		End Property

		Public Sub New(ByVal type As ChatResponses, ByVal msg As String, Optional ByVal from As String = "", Optional ByVal verbosity As ChatVerbosity = ChatVerbosity.Low)
			m_Type = type
			m_Message = msg
			m_From = from
			m_Verbosity = verbosity
		End Sub

	End Class
End Namespace
